home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t6.d64 / when saints.c (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  1KB  |  52 lines
  1. 5 PRINT"[147] MUSIC DRIVER PROGRAM WITH SAMPLE TUNE"
  2. 6 PRINT" BY G.WELSH":REM"
  3. 10 [151] 54296,15:[151]54274,0:[151]54275,8:[151]54278,0:[151]54277,0
  4. 13 [134]N$(12):[129]I[178]0[164]11:[135]N$(I):[130]
  5. 16 [131] C,C#,D,D#,E,F,F#,G,G#,A,A#,B
  6. 20 [135]A$,D:[139]A$[178]"END"[167][151] 54276,0:[128]
  7. 22 O$[178][201](A$,1):O[178][198](O$)[171]48:N$[178][200](A$,1):[139][202](A$,2,1)[178]"#"[167]N$[178]N$[170]"#"
  8. 24 [143] PRINTN$" IN OCTAVE"O":"
  9. 26 [129]I[178]0[164]11:[139]N$(I)[179][177]N$[167][130]:[137]20
  10. 30 N[178]O[172]12[170]I:F[178][181](64814[172](2[174](1[173]12)[174](N[171]95))[170].5)
  11. 40 [139]F[177]65535[167][151]54272,0:[151]54273,0:[137]60
  12. 50 F0[178][181](F[173]256):F1[178]F[171]F0[172]256:[151]54273,F0:[151]54272,F1:[151]54276,65
  13. 60 [129]I[178]1[164]D[175]16383:[130]:[139]D[175]16384[167][151]54272,0:[151]54273,0
  14. 70 [137]20
  15. 100 [131] C-4,25
  16. 110 [131] E-4,25
  17. 120 [131] F-4,25
  18. 130 [131] G-4,125
  19. 135 [131] G-8,25
  20. 140 [131] G-8,25
  21. 150 [131] C-4,25
  22. 160 [131] E-4,25
  23. 170 [131] F-4,25
  24. 180 [131] G-4,125
  25. 190 [131] C-8,25
  26. 200 [131] C-4,25
  27. 210 [131] E-4,25
  28. 220 [131] F-4,25
  29. 230 [131] G-4,100
  30. 240 [131] E-4,100
  31. 250 [131] C-4,100
  32. 260 [131] E-4,100
  33. 270 [131] D-4,200
  34. 280 [131] D-8,25
  35. 290 [131] E-4,16389
  36. 300 [131] E-4,5
  37. 310 [131] D-4,25
  38. 320 [131] C-4,16484
  39. 330 [131] C-4,75
  40. 340 [131] E-4,50
  41. 350 [131] G-4,16434
  42. 360 [131] G-4,25
  43. 370 [131] F-4,200
  44. 380 [131] E-4,25
  45. 390 [131] F-4,25
  46. 400 [131] G-4,75
  47. 410 [131] E-4,75
  48. 420 [131] C-4,75
  49. 430 [131] D-4,75
  50. 440 [131] C-4,200
  51. 63999 [131] END,0
  52.